﻿Imports LogicaAT.SIREOS
Imports ServiciosAT

Namespace SIREOS
    Public Class CtComun

        Function listarAreas() As DataTable
            Dim oGeneralWS As New ComunSWR
            Return oGeneralWS.listarAreas()
        End Function

        Function listarCargos() As DataTable
            Dim oGeneralWS As New ComunSWR
            Return oGeneralWS.listarCargos()
        End Function

        Function listarDistritos(oUbigeo As SireosWSComun.Ubigeo) As DataTable
            Dim oGeneralSW As New ComunSWR
            Return oGeneralSW.listarDistritos(oUbigeo)
        End Function

        Function listarFallas() As DataTable
            Dim oGeneralWS As New ComunSWR
            Return oGeneralWS.listarFallas
        End Function

        Function listarFamilias() As DataTable
            Dim oGeneralWS As New ComunSWR
            Return oGeneralWS.listarFamilias
        End Function

        Function listarGarantias(codTipoServicio As Integer) As DataTable
            Dim oGeneralWS As New ComunSWR
            Return oGeneralWS.listarGarantias(codTipoServicio)
        End Function

        Function listarLocales() As DataTable
            Dim oGeneralWS As New ComunSWR
            Return oGeneralWS.listarLocales()
        End Function

        Function listarMarcas() As DataTable
            Dim oGeneralWS As New ComunSWR
            Return oGeneralWS.listarMarcas
        End Function

        Function listarMarcasEquipo() As DataTable
            Dim oGeneralWS As New ComunSWR
            Return oGeneralWS.listarMarcasEquipo
        End Function

        Function listarMoviles() As DataTable
            Dim oGeneralWS As New ComunSWR
            Return oGeneralWS.listarMoviles
        End Function

        Function listarPrioridad() As DataTable
            Dim oGeneralWS As New ComunSWR
            Return oGeneralWS.listarPrioridad()
        End Function

        Function listarProvincias(oUbigeoBE As SireosWSComun.Ubigeo) As DataTable
            Dim oGeneralWS As New ComunSWR
            Return oGeneralWS.listarProvincias(oUbigeoBE)
        End Function

        Function listarProyecto() As DataTable
            Dim oGeneralWS As New ComunSWR
            Return oGeneralWS.listarProyecto()
        End Function

        Function listarRegiones() As DataTable
            Dim oGeneralWS As New ComunSWR
            Return oGeneralWS.listarRegiones
        End Function

        Function listarServicios() As DataTable
            Dim oGeneralWS As New ComunSWR
            Return oGeneralWS.listarServicios
        End Function

        Function listarTablaDetalle(oTablaDetalleBE As SireosWSComun.TablaDetalle) As DataTable
            Dim oGeneralWS As New ComunSWR
            Return oGeneralWS.listarTabla(oTablaDetalleBE)
        End Function
     
        Function listarTipoEquipo(oFamilia As SireosWSComun.Familia) As DataTable
            Dim oGeneralWS As New ComunSWR
            Return oGeneralWS.listarTipoEquipo(oFamilia)
        End Function

        Function listarTransportistas() As DataTable
            Dim oGeneralWS As New ComunSWR
            Return oGeneralWS.listarTransportistas()
        End Function

        Function listarVendedores() As DataTable
            Dim oGeneralWS As New ComunSWR
            Return oGeneralWS.listarVendedores()
        End Function

    End Class
End Namespace